module Identifier where

data Identifier = Identifier String deriving (Eq, Ord)

instance Show Identifier where
    show (Identifier s) = "<" ++ s ++ ">"
